home *** CD-ROM | disk | FTP | other *** search
/ The Utilities Experience / The Utilities Experience - Volume 1.iso / software / comms / html-heaven / install < prev    next >
Encoding:
Text File  |  1996-01-05  |  14.2 KB  |  620 lines
  1. (message
  2.   "\nWelcome to the\nHTML-Heaven Installer Utility\n\n"
  3.   "This program will install the HTML-Heaven\n"
  4.   "HTML authoring suite rel. 1.3 on your Amiga.\n"
  5.   "\n"
  6.   "Please read the AmigaGuide document or the\n"
  7.   "HTML documents for more information on how\n"
  8.   "to use the HTML-Heaven suite.\n"
  9.   "\n"
  10.   "The HTML-Heaven HTML authoring suite is\n"
  11.   "© 1994, 95 by Paul Kolenbrander\n"
  12.   "All Rights Reserved!\n"
  13. )
  14. (welcome)
  15.  
  16. ;
  17. ; checking the AmigaOS version. We need at least 37.xx
  18. ;
  19. (transcript "One moment, checking your OS version...")
  20. (if
  21.   (<
  22.     (/
  23.       (getversion)
  24.       65536
  25.     )
  26.     37
  27.   )
  28.   (
  29.     (transcript "Aborting Installation as AmigaOS Release 2.04 (or higher) is not available.")
  30.     (abort "\nSorry, HTML-Heaven requires at least AmigaOS Release 2.04 to run.\n\n"
  31.            "Press the Proceed button to abort the installation procedure.")
  32.  
  33.   )
  34.   (transcript "AmigaOS version 2.04 (or higher) found. Proceeding.")
  35. )
  36. (complete 0)
  37.  
  38. ;
  39. ; Now ask where to install the HTML-Heaven drawer
  40. ;
  41. (set HTML-Heaven-dest
  42.   (tackon
  43.     (askdir
  44.       (prompt "Where should the HTML-Heaven drawer be installed?")
  45.       (help @askdir-help)
  46.       (default @default-dest)
  47.     )
  48.     "HTML-Heaven"
  49.   )
  50. )
  51. (set @default-dest HTML-Heaven-dest)
  52. (complete 10)
  53.  
  54. ;
  55. ; And copy all the file we need to the destination directory 
  56. ;
  57. (copyfiles
  58.   (source "")
  59.   (dest HTML-Heaven-dest)
  60.   (pattern "#?")
  61.   (infos)
  62. )
  63. (complete 40)
  64.  
  65. ;
  66. ; Set the date of all the copied files so the user gets a clean list and knows
  67. ; when he/she installed the package. [I know, I'm nitpicking. :-)]
  68. ;
  69. (set mydestin (tackon HTML-Heaven-Dest "#?"))
  70. (run "setdate" mydestin) 
  71. (complete 50)
  72.  
  73. (copyfiles
  74.   (source "Arexx")
  75.   (dest ( tackon HTML-Heaven-dest "ARexx" ) )
  76.   (pattern "#?")
  77.   (infos)
  78. )
  79. (complete 60)
  80.  
  81. ;
  82. ; Set the date of all the copied files so the user gets a clean list and knows
  83. ; when he/she installed the package. [I know, I'm nitpicking. :-)]
  84. ;
  85. (set mydestin (tackon HTML-Heaven-Dest "Arexx/#?"))
  86. (run "setdate" mydestin) 
  87. (complete 70)
  88.  
  89.  
  90. ;
  91. ; Now ask which editor script should be copied to S:
  92. ;
  93. (set editor-options
  94.  (select
  95.   (set editor-choice
  96.    (askchoice
  97.     (prompt "Which editor script do you wish to install?\n"
  98.     (choices "AME (part of DICE)"
  99.              "Annotate 2.0 or higher"
  100.              "Amiga Ed (standard editor)"
  101.              "CygnusEd 3.5Pro or higher"
  102.              "EdWord"
  103.              "EdWord 5.0"
  104.              "Final Writer 4"
  105.              "More supported editors"
  106.     )
  107.     (default 0)
  108.     (help "Editor script description:\n"
  109.           "AME: Sets up HTML-Heaven to work with the DICE AME "
  110.           "editor.\n"
  111.           "\n"
  112.           "Annotate: Sets up HTML-Heaven to work with the Annotate "
  113.           "v2.0 editor.\n"
  114.           "\n"
  115.           "Amiga Ed: Sets up HTML-Heaven to work with the Amiga ED "
  116.           "editor. Note, Limited support due to Ed's behavior.\n"
  117.           "\n"
  118.           "CygnusEd: Sets up HTML-Heaven to work with the CygnusEd "
  119.           "editor.\n"
  120.           "EdWord: Sets up HTML-Heaven to work with the shareware "
  121.           "EdWord editor.\n"
  122.           "\n"
  123.           "EdWord5.0: Sets up HTML-Heaven to work with the shareware "
  124.           "EdWord 5.0 editor.\n"
  125.           "\n"
  126.           "FinalWriter: Sets up HTML-Heaven to work with the Final "
  127.           "Writer 4 word processor.\n"
  128.           "\n"
  129.           "Even more editors supported by the HTML-Heaven suite. "
  130.           "\n"
  131.           @askoptions-help)
  132.     )
  133.    )
  134.   )
  135.   (shiftleft 1 0) ; AME
  136.   (shiftleft 1 1) ; Annotate
  137.   (shiftleft 1 2) ; Amiga Ed
  138.   (shiftleft 1 3) ; CygnusEd
  139.   (shiftleft 1 4) ; EdWord
  140.   (shiftleft 1 5) ; EdWord 5.0
  141.   (shiftleft 1 6) ; Final Writer 4
  142.   (shiftleft 1 7) ; More editors
  143.  )
  144. )
  145. (complete 80)
  146.  
  147. ;
  148. ; Copy selected editor script
  149. ;
  150. (if
  151.   (IN editor-options 0)
  152.   (
  153.     (copyfiles
  154.       (prompt "Installing the AME script...")
  155.       (source ( tackon HTML-Heaven-dest "ARexx/HTML-AME.rexx" ) )
  156.       (dest "S:")
  157.       (newname "HTML.rexx")
  158.       (infos)
  159.       (help @copyfiles-help)
  160.     )
  161.      
  162.   )
  163. )
  164. (complete 95)
  165.  
  166. (if
  167.   (IN editor-options 1)
  168.   (
  169.     (copyfiles
  170.       (prompt "Installing the Annotate script...")
  171.       (source ( tackon HTML-Heaven-dest "ARexx/HTML-Annotate.rexx" ) )
  172.       (dest "S:")
  173.       (newname "HTML.rexx")
  174.       (infos)
  175.       (help @copyfiles-help)
  176.     )
  177.   )
  178. )
  179. (complete 95)
  180.  
  181. (if
  182.   (IN editor-options 2)
  183.   (
  184.     (copyfiles
  185.       (prompt "Installing the AmigaEd script...")
  186.       (source ( tackon HTMl-Heaven-dest "ARexx/HTML-Ed.rexx" ) )
  187.       (dest "S:")
  188.       (newname "HTML.rexx")
  189.       (infos)
  190.       (help @copyfiles-help)
  191.     )
  192.      
  193.   )
  194. )
  195. (complete 95)
  196.  
  197. (if
  198.   (IN editor-options 3)
  199.   (
  200.     (copyfiles
  201.       (prompt "Installing the CygnusEd script...")
  202.       (source ( tackon HTML-Heaven-dest "ARexx/HTML-CEd.rexx" ) )
  203.       (dest "S:")
  204.       (newname "HTML.rexx")
  205.       (infos)
  206.       (help @copyfiles-help)
  207.     )
  208.   )
  209. )
  210. (complete 95)
  211.  
  212. (if
  213.   (IN editor-options 4)
  214.   (
  215.     (copyfiles
  216.       (prompt "Installing the EdWord script...")
  217.       (source ( tackon HTML-Heaven-dest "ARexx/HTML-EdWord.rexx" ) )
  218.       (dest "S:")
  219.       (newname "HTML.rexx")
  220.       (infos)
  221.       (help @copyfiles-help)
  222.     )
  223.   )
  224. )
  225. (complete 95)
  226.  
  227. (if
  228.   (IN editor-options 5)
  229.   (
  230.     (copyfiles
  231.       (prompt "Installing the EdWord 5.0script...")
  232.       (source ( tackon HTML-Heaven-dest "ARexx/HTML-EdWord5.rexx" ) )
  233.       (dest "S:")
  234.       (newname "HTML.rexx")
  235.       (infos)
  236.       (help @copyfiles-help)
  237.     )
  238.   )
  239. )
  240. (complete 95)
  241.  
  242. (if
  243.   (IN editor-options 6)
  244.   (
  245.     (copyfiles
  246.       (prompt "Installing the FrexxEd script...")
  247.       (source ( tackon HTML-Heaven-dest "ARexx/HTML-FrexxEd.rexx" ) )
  248.       (dest "S:")
  249.       (newname "HTML.rexx")
  250.       (infos)
  251.       (help @copyfiles-help)
  252.     )
  253.   )
  254. )
  255. (complete 95)
  256.  
  257. (if
  258.   (IN editor-options 7)
  259.   (
  260.   (set editor-options
  261.    (select
  262.     (set editor-choice
  263.      (askchoice
  264.       (prompt "Which editor script do you wish to install?\n"
  265.       (choices "FrexxEd"
  266.                "GoldEd 1.0 or higher"
  267.                "GNU Emacs" 
  268.                "PolyEd" 
  269.                "SAS's SE" 
  270.                "SkoEd"
  271.                "TurboText" 
  272.                "even more editors"
  273.       )
  274.       (default 0)
  275.       (help "Editor script description:\n"
  276.             "FrexxEd: Sets up HTML-Heaven to work with the shareware "
  277.             "FrexxEd editor.\n"
  278.             "\n"
  279.             "GoldEd: Sets up HTML-Heaven to work with the shareware "
  280.             "GoldEd 1.0 or higher editor.\n"
  281.             "\n"
  282.             "MEmacs: Sets up HTML-Heaven to work with the MEmacs editor "
  283.             "that is available on most AmiNet sites.\n"
  284.             "\n"
  285.             "PolyEd: Sets up HTML-Heaven to work with the shareware "
  286.             "PolyEd editor found on eg. AmiNet.\n"
  287.             "\n"
  288.             "SE: Sets up HTML-Heaven to work with the SE editor that "
  289.             "comes with the SAS C compiler.\n"
  290.             "\n"
  291.             "SkoEd: Sets up HTML-Heaven to work with the shareware editor"
  292.             "SkoEd.\n"
  293.             "\n"
  294.             "TTX: Sets up HTML-Heaven to work with the TurboText "
  295.             "editor. An excellent script created by Cletus Baker.\n"
  296.             "\n"
  297.             "Even more editors supported by the HTML-Heaven suite. "
  298.             "\n"
  299.             "\n"
  300.             @askoptions-help)
  301.       )
  302.      )
  303.     )
  304.     (shiftleft 1 0) ; FrexxEd
  305.     (shiftleft 1 1) ; GoldEd
  306.     (shiftleft 1 2) ; MEmacs
  307.     (shiftleft 1 3) ; PolyEd
  308.     (shiftleft 1 4) ; SE
  309.     (shiftleft 1 5) ; SkoEd
  310.     (shiftleft 1 6) ; TTX
  311.     (shiftleft 1 7) ; More Editors
  312.    )
  313.   )
  314.   (complete 80)
  315. ;
  316. ; Copy selected editor script
  317. ;
  318.   (if
  319.     (IN editor-options 0)
  320.     (
  321.       (copyfiles
  322.         (prompt "Installing the FrexxEd script...")
  323.         (source ( tackon HTML-Heaven-dest "ARexx/HTML-FrexxEd.rexx" ) )
  324.         (dest "S:")
  325.         (newname "HTML.rexx")
  326.         (infos)
  327.         (help @copyfiles-help)
  328.       )
  329.     )
  330.   )
  331.   (complete 95)
  332.  
  333.   (if
  334.     (IN editor-options 1)
  335.     (
  336.       (copyfiles
  337.         (prompt "Installing the GoldEd script...")
  338.         (source ( tackon HTML-Heaven-dest "ARexx/HTML-GoldEd.rexx" ) )
  339.         (dest "S:")
  340.         (newname "HTML.rexx")
  341.         (infos)
  342.         (help @copyfiles-help)
  343.       )
  344.     )
  345.   )
  346.   (complete 95)
  347.   
  348.   (if
  349.     (IN editor-options 2)
  350.     (
  351.       (copyfiles
  352.         (prompt "Installing the GNU Emacs script...")
  353.         (source ( tackon HTML-Heaven-dest "ARexx/HTML-MEmacs.rexx" ) )
  354.         (dest "S:")
  355.         (newname "HTML.rexx")
  356.         (infos)
  357.         (help @copyfiles-help)
  358.       )
  359.     )
  360.   )
  361.   (complete 95)
  362.  
  363.   (if
  364.     (IN editor-options 3)
  365.     (
  366.       (copyfiles
  367.         (prompt "Installing the PolyEd script...")
  368.         (source ( tackon HTML-Heaven-dest "ARexx/HTML-PolyEd.rexx" ) )
  369.         (dest "S:")
  370.         (newname "HTML.rexx")
  371.         (infos)
  372.         (help @copyfiles-help)
  373.       )
  374.     )
  375.   )
  376.   (complete 95)
  377.  
  378.   (if
  379.     (IN editor-options 4)
  380.     (
  381.       (copyfiles
  382.         (prompt "Installing the SE script...")
  383.         (source ( tackon HTML-Heaven-dest "ARexx/HTML-SE.rexx" ) )
  384.         (dest "S:")
  385.         (newname "HTML.rexx")
  386.         (infos)
  387.         (help @copyfiles-help)
  388.       )
  389.     )
  390.   )
  391.   (complete 95)
  392.  
  393.   (if
  394.     (IN editor-options 5)
  395.     (
  396.       (copyfiles
  397.         (prompt "Installing the SkoEd script...")
  398.         (source ( tackon HTML-Heaven-dest "ARexx/HTML-SkoEd.rexx" ) )
  399.         (dest "S:")
  400.         (newname "HTML.rexx")
  401.         (infos)
  402.         (help @copyfiles-help)
  403.       )
  404.     )
  405.   )
  406.   (complete 95)
  407.  
  408.   (if
  409.     (IN editor-options 6)
  410.     (
  411.       (copyfiles
  412.         (prompt "Installing the TurboTeXt script...")
  413.         (source ( tackon HTML-Heaven-dest "ARexx/HTML-TTX.rexx" ) )
  414.         (dest "S:")
  415.         (newname "HTML.rexx")
  416.         (infos)
  417.         (help @copyfiles-help)
  418.       )
  419.     )
  420.   )
  421.   (complete 95)
  422.  
  423.   (if
  424.       (IN editor-options 7)
  425.       (
  426.       (set editor-options
  427.        (select
  428.         (set editor-choice
  429.          (askchoice
  430.           (prompt "Which editor script do you wish to install?\n"
  431.           (choices "Black's Editor (BEd)"
  432.                    "Textra 1.0 or higher"
  433.                    "Write 4.76 or higher"
  434.                    "Skip this part"
  435.           )
  436.           (default 0)
  437.           (help "Editor script description:\n"
  438.                 "BED: Sets up HTML-Heaven to work with the shareware "
  439.                 "BED editor.\n"
  440.                 "\n"
  441.                 "Textra: Sets up HTML-Heaven to work with the Textra "
  442.                 "editor.\n"
  443.                 "Write: Sets up HTML-Heaven to work with the shareware "
  444.                 "Write editor.\n"
  445.                 "\n"
  446.                 @askoptions-help)
  447.           )
  448.          )
  449.         )
  450.         (shiftleft 1 0) ; BEd
  451.         (shiftleft 1 1) ; Textra
  452.         (shiftleft 1 2) ; Textra
  453.        )
  454.       )
  455.       (complete 80)
  456. ;
  457. ; Copy selected editor script
  458. ;
  459.       (if
  460.         (IN editor-options 0)
  461.         (
  462.           (copyfiles
  463.             (prompt "Installing the BEd script...")
  464.             (source ( tackon HTML-Heaven-dest "ARexx/HTML-BEd.rexx" ) )
  465.             (dest "S:")
  466.             (newname "HTML.rexx")
  467.             (infos)
  468.             (help @copyfiles-help)
  469.           )
  470.         )
  471.       )
  472.       (complete 95)
  473.  
  474.       (if
  475.         (IN editor-options 1)
  476.         (
  477.           (copyfiles
  478.             (prompt "Installing the Textra script...")
  479.             (source ( tackon HTML-Heaven-dest "ARexx/HTML-Textra.rexx" ) )
  480.             (dest "S:")
  481.             (newname "HTML.rexx")
  482.             (infos)
  483.             (help @copyfiles-help)
  484.           )
  485.         )
  486.       )
  487.       (complete 95)
  488.  
  489.       (if
  490.         (IN editor-options 2)
  491.         (
  492.           (copyfiles
  493.             (prompt "Installing the Write script...")
  494.             (source ( tackon HTML-Heaven-dest "ARexx/HTML-Write.rexx" ) )
  495.             (dest "S:")
  496.             (newname "HTML.rexx")
  497.             (infos)
  498.             (help @copyfiles-help)
  499.           )
  500.         )
  501.       )
  502.       (complete 95)
  503.  
  504.       (if
  505.         (IN editor-options 3)
  506.         (
  507.            (complete 95)
  508.         )
  509.       )
  510.     )
  511.   )
  512.  )
  513. )
  514.  
  515.  
  516. (set editor-options
  517.  (select
  518.   (set editor-choice
  519.    (askchoice
  520.     (prompt "Do you wish to install AutoView Support?\n"
  521.     (choices "AMosaic"
  522.              "Ibrowse (Not available yet)"
  523.              "WebLink (Not available yet)" 
  524.              "No Autoview support"
  525.     )
  526.     (default 0)
  527.     (help "AutoView script description:\n"
  528.           "AMosaic: Sets up HTML-Heaven to automatically tell AMosaic "
  529.           "to show any change made in the document you are working on\n"
  530.           "\n"
  531.           "Ibrowse: Sets up HTML-Heaven to automatically tell Ibrowse "
  532.           "to show any change made in the document you are working on "
  533.           "Not available as Ibrowse does not support Arexx yet.\n"
  534.           "\n"
  535.           "WebLink: Sets up HTML-Heaven to automatically tell WebLink "
  536.           "to show any change made in the document you are working on "
  537.           "Not available as Ibrowse does not support Arexx yet.\n"
  538.           "\n"
  539.           "Do not sets up HTML-Heaven to automatically tell a browser "
  540.           "to show any change made in the document being worked on. "
  541.           "Not available as WebLink isn't released yet.\n"
  542.           "\n"
  543.           "\n"
  544.           @askoptions-help)
  545.     )
  546.    )
  547.   )
  548.   (shiftleft 1 0) ; AMosaic
  549.   (shiftleft 1 1) ; IBrowse
  550.   (shiftleft 1 2) ; WebLink
  551.  )
  552. )
  553. (complete 96)
  554. ;
  555. ; Copy selected browser script
  556. ;
  557. (if
  558.   (IN editor-options 0)
  559.   (
  560.     (copyfiles
  561.       (prompt "Installing the AMosaic script...")
  562.       (source ( tackon HTML-Heaven-dest "ARexx/HTML-AMosaic.rexx" ) )
  563.       (dest "S:")
  564.       (newname "HTMLVIEW.rexx")
  565.       (infos)
  566.       (help @copyfiles-help)
  567.     )
  568.   )
  569. )
  570. (complete 97)
  571.  
  572. (if
  573.   (IN editor-options 1)
  574.   (
  575.     (copyfiles
  576.       (prompt "Installing the Ibrowse script...")
  577.       (source ( tackon HTML-Heaven-dest "ARexx/HTML-IBrowse.rexx" ) )
  578.       (dest "S:")
  579.       (newname "HTMLVIEW.rexx")
  580.       (infos)
  581.       (help @copyfiles-help)
  582.     )
  583.   )
  584. )
  585. (complete 97)
  586.  
  587. (if
  588.   (IN editor-options 2)
  589.   (
  590.     (copyfiles
  591.       (prompt "Installing the WebLink script...")
  592.       (source ( tackon HTML-Heaven-dest "ARexx/HTML-WebLink.rexx" ) )
  593.       (dest "S:")
  594.       (newname "HTMLVIEW.rexx")
  595.       (infos)
  596.       (help @copyfiles-help)
  597.     )
  598.   )
  599. )
  600. (complete 97)
  601. (if
  602.   (IN editor-options 3)
  603.   (
  604.     (complete 97)
  605.   )
  606. )
  607. (complete 98)
  608.  
  609. (run "setdate S:HTML.rexx")
  610. (run "setdate S:HTMLView.rexx")
  611. (complete 100)
  612.  
  613. (exit "Release 1.3 of HTML-Heaven has been installed.\n"
  614.       "\n"
  615.       "HTML-Heaven is ©1994, 95 by Paul Kolenbrander\n"
  616.       "All Rights Reserved!\n\n"
  617.       "Please consider registering this fine package.\n"
  618. )
  619.  
  620.